charge.corpus<-function(name){
  liste.rep<-dir(name);

  final<-Corpus(DirSource(paste(paste(name, "/", sep=""), liste.rep[1], sep="")), readerControl=list(reader=readPDF))

  for(i in 2:length(liste.rep))
    final<-c(final, Corpus(DirSource(paste(paste(name, "/", sep=""), liste.rep[i], sep="")), readerControl=list(reader=readPDF)))

  return(final)
}
